WITH Matiere;
WITH Valeur;
PACKAGE Bulletin IS

   SUBTYPE Nombre IS Natural range 0 .. 10;

   TYPE T_Matieres IS array (Nombre range <>) of Matiere.Matiere;

   TYPE Bulletin IS PRIVATE;

PRIVATE

   TYPE Bulletin (Selon : Nombre := 0) IS RECORD
      Un_Objectif : Valeur.valeur := 1000;
      Des_Matieres : T_Matieres (1 .. Selon);
   END RECORD;

END Bulletin;
